RCS "$Id: Lexer.sig,v 1.2 1998/08/13 11:35:02 pxs Exp $";
(* cut-down version of the LEXER signature in base.sml. Will go away soon! *)
signature CUTDOWN_LEXER =
   sig
       structure UserDeclarations :
	   sig
	        type lexresult
	   end
	val makeLexer : (int -> string) -> unit ->  UserDeclarations.lexresult
   end
